home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Online / CIM / stuff / SCRIPTS / fax_gpfax.script < prev    next >
Encoding:
Text File  |  1998-12-19  |  1.2 KB  |  52 lines
  1.  
  2. ; $VER: V0.23 (30.09.1998)
  3. ; Written by Jan-Erik Tervo
  4. ; Arexx and CIM V2 must be running
  5.  
  6.  
  7. FAILAT 21
  8.  
  9.  
  10.      RUN >NIL: RequestChoice "CIM" "FAX Call Received" "OK"
  11.  
  12.  
  13.      IF EXISTS GPFAX:GPFAX
  14.  
  15.             rx 'address CIM DEVICE_RELEASE'
  16.                     
  17.             IF ERROR
  18.                             
  19.                 RUN >NIL: RequestChoice "CIM" "Error !" "Ok"
  20.                            
  21.                ELSE
  22.                         
  23.                RUN >NIL: GPFAX:GPFAX -Q
  24.           
  25.                WaitForPort REXX_GPFAX
  26.  
  27.                IF ERROR
  28.                               
  29.                    RUN >NIL: RequestChoice "CIM" "Error. Arexx port of GPFax not found" "Ok"
  30.                  
  31.                   ELSE
  32.                                      
  33.                    rx >NIL: 'address REXX_GPFAX INITMODEM'
  34.                    rx >NIL: 'address REXX_GPFAX RECFAX'
  35.                    rx >NIL: 'address REXX_GPFAX QUIT'
  36.                    
  37.                 ENDIF
  38.              
  39.              ENDIF
  40.              
  41.              WAIT 5
  42.              
  43.              rx 'address CIM DEVICE_OPEN'
  44.              
  45.           ELSE
  46.           
  47.           RUN >NIL: RequestChoice "CIM" "Error. Fax Program not found" "Ok"
  48.           
  49.      ENDIF
  50.  
  51.  
  52.